home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / g / gnu_c / crssrc16.zoo / src / scroll.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-09-27  |  1.4 KB  |  55 lines
  1. /*
  2.  * Copyright (c) 1981 Regents of the University of California.
  3.  * All rights reserved.
  4.  *
  5.  * Redistribution and use in source and binary forms are permitted
  6.  * provided that the above copyright notice and this paragraph are
  7.  * duplicated in all such forms and that any documentation,
  8.  * advertising materials, and other materials related to such
  9.  * distribution and use acknowledge that the software was developed
  10.  * by the University of California, Berkeley.  The name of the
  11.  * University may not be used to endorse or promote products derived
  12.  * from this software without specific prior written permission.
  13.  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  14.  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  15.  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16.  */
  17.  
  18. #ifndef lint
  19. static char sccsid[] = "@(#)scroll.c    5.3 (Berkeley) 6/30/88";
  20. #endif /* not lint */
  21.  
  22. # include    "curses.ext"
  23.  
  24. /*
  25.  *    This routine scrolls the window up a line.
  26.  *
  27.  */
  28. int scroll(win)
  29. register  WINDOW    *win;
  30. {
  31.     register int    oy, ox;
  32.  
  33. # ifdef DEBUG
  34.     fprintf(outf, "SCROLL(%0.2o)\n", win);
  35. # endif
  36.  
  37.     if (!win->_scroll)
  38.         return ERR;
  39.  
  40.     getyx(win, oy, ox);
  41.     wmove(win, 0, 0);
  42.     wdeleteln(win);
  43.     wmove(win, oy, ox);
  44.  
  45.     if (win == curscr) {
  46.         _putchar('\n', stdout);
  47.         if (!NONL)
  48.             win->_curx = 0;
  49. # ifdef DEBUG
  50.         fprintf(outf, "SCROLL: win == curscr\n");
  51. # endif
  52.     }
  53.     return OK;
  54. }
  55.